﻿Public Class BuscarUsuario

    'Function buscar(ByVal email As String, ByVal dni As Integer, ByVal nombre As String, ByVal ape_pat As String, ByVal ciudad As String, ByVal direccion As String, ByVal telefono_movil As Integer, ByVal rol As String) As Collection
    'Dim modelo As New Usuario
    '   modelo.email = email
    '  modelo.dni = dni
    ' modelo.nombre = nombre
    'modelo.ape_pat = ape_pat
    ' modelo.ciudad = ciudad
    'modelo.direccion = direccion
    ' modelo.telefono_movil = telefono_movil
    ' modelo.rol = rol

    'Dim dao As New UsuarioDAO

    '   Return dao.buscar(modelo)

    'End Function

    Function buscar(ByVal ape_pat As String, ByVal ciudad As String, ByVal rol As String) As Collection
        Dim modelo As New Usuario
        'modelo.dni = dni
        modelo.ape_pat = ape_pat
        modelo.ciudad = ciudad
        modelo.rol = rol

        Dim dao As New UsuarioDAO

        Return dao.buscar(modelo)
    End Function

End Class
